COMMENT ⊗   VALID 00003 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002
C00006 00003
C00007 ENDMK
C⊗;

;(KEEP) takes clock interrupts until anything is typed
;(KEEP T) does the same thing but hides and unhides the channel


	(LAP KEEP FSUBR)    
	(JUMPE A C2)
	(SETO A)
	(HRLI B -1)
	(HRRI B HIDIT)
	(CALLI B 400121)
C2
	(MOVEM A HIDE)
	(MOVEI B 30.)
	(CALLI B 31)
	(TTYUUO 2 A)
	(JRST 0 (+ C2 2))
	(CAIE A 15)
	(CAIN A 12)
	(JRST 0 (+ C2 2))
	(MOVE A self)
	(CALLI A 400111)
	(MOVEI A 'T)
	(SKIPN 0 HIDE)
	(POPJ P)
	(HRLI B -1)
	(HRRI B UNHIDIT)
	(CALLI B 400121)
	(POPJ P)
hide	(0)
hidit 	(004000000110)
unhidit (004000000510)
self 	(-1)
()